home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / syslog_1 / syslog~1.exe / syslogx / vb5 / demo1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-01-19  |  10.4 KB  |  355 lines
  1. VERSION 5.00
  2. Object = "{91E315E7-772C-11D1-8065-0040333CACBB}#1.0#0"; "SYSLOGX.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   4245
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   6690
  9.    LinkTopic       =   "Form1"
  10.    ScaleHeight     =   4245
  11.    ScaleWidth      =   6690
  12.    StartUpPosition =   3  'Windows Default
  13.    Begin VB.TextBox Text5 
  14.       Height          =   285
  15.       Left            =   2160
  16.       TabIndex        =   18
  17.       Top             =   1560
  18.       Width           =   3855
  19.    End
  20.    Begin VB.CheckBox Check4 
  21.       Caption         =   "Audible Alert Enable"
  22.       Height          =   195
  23.       Left            =   480
  24.       TabIndex        =   17
  25.       Top             =   3720
  26.       Width           =   1935
  27.    End
  28.    Begin VB.CheckBox Check3 
  29.       Caption         =   "File Logging Enabled"
  30.       Height          =   255
  31.       Left            =   480
  32.       TabIndex        =   16
  33.       Top             =   3000
  34.       Width           =   1935
  35.    End
  36.    Begin VB.TextBox Text4 
  37.       Height          =   285
  38.       Left            =   2160
  39.       TabIndex        =   14
  40.       Top             =   1200
  41.       Width           =   3855
  42.    End
  43.    Begin VB.ComboBox Priority 
  44.       Height          =   315
  45.       Left            =   2160
  46.       TabIndex        =   13
  47.       Top             =   2520
  48.       Width           =   1695
  49.    End
  50.    Begin VB.ComboBox Facility 
  51.       Height          =   315
  52.       ItemData        =   "demo1.frx":0000
  53.       Left            =   2160
  54.       List            =   "demo1.frx":0002
  55.       TabIndex        =   12
  56.       Top             =   2040
  57.       Width           =   1695
  58.    End
  59.    Begin VB.CheckBox Check2 
  60.       Caption         =   "Show Time"
  61.       Height          =   255
  62.       Left            =   480
  63.       TabIndex        =   9
  64.       Top             =   3480
  65.       Width           =   1215
  66.    End
  67.    Begin VB.CheckBox Check1 
  68.       Caption         =   "Syslog Enabled"
  69.       Height          =   255
  70.       Left            =   480
  71.       TabIndex        =   8
  72.       Top             =   3240
  73.       Value           =   1  'Checked
  74.       Width           =   1575
  75.    End
  76.    Begin VB.TextBox Text3 
  77.       Height          =   285
  78.       Left            =   2160
  79.       TabIndex        =   7
  80.       Top             =   840
  81.       Width           =   3855
  82.    End
  83.    Begin SYSLOGXLib.Syslogx Syslogx1 
  84.       Left            =   5520
  85.       Top             =   2040
  86.       _Version        =   65536
  87.       _ExtentX        =   800
  88.       _ExtentY        =   800
  89.       _StockProps     =   96
  90.       Facility        =   128
  91.       FileLogName     =   "c:\syslogx.log"
  92.       FileLogEnable   =   -1  'True
  93.       AlertEnable     =   -1  'True
  94.       AlertSound      =   ""
  95.       DestIP          =   ""
  96.    End
  97.    Begin VB.TextBox Text2 
  98.       Height          =   285
  99.       Left            =   2160
  100.       TabIndex        =   2
  101.       Top             =   480
  102.       Width           =   3855
  103.    End
  104.    Begin VB.CommandButton Command1 
  105.       Caption         =   "Send Message"
  106.       Height          =   375
  107.       Left            =   2760
  108.       TabIndex        =   1
  109.       Top             =   3360
  110.       Width           =   1575
  111.    End
  112.    Begin VB.TextBox Text1 
  113.       Height          =   285
  114.       Left            =   2160
  115.       TabIndex        =   0
  116.       Top             =   120
  117.       Width           =   3855
  118.    End
  119.    Begin VB.Label Label7 
  120.       Alignment       =   1  'Right Justify
  121.       Caption         =   "Sound File"
  122.       BeginProperty Font 
  123.          Name            =   "MS Sans Serif"
  124.          Size            =   8.25
  125.          Charset         =   0
  126.          Weight          =   700
  127.          Underline       =   0   'False
  128.          Italic          =   0   'False
  129.          Strikethrough   =   0   'False
  130.       EndProperty
  131.       Height          =   255
  132.       Left            =   720
  133.       TabIndex        =   3
  134.       Top             =   1680
  135.       Width           =   1215
  136.    End
  137.    Begin VB.Label Label6 
  138.       Alignment       =   1  'Right Justify
  139.       Caption         =   "Log File Name"
  140.       BeginProperty Font 
  141.          Name            =   "MS Sans Serif"
  142.          Size            =   8.25
  143.          Charset         =   0
  144.          Weight          =   700
  145.          Underline       =   0   'False
  146.          Italic          =   0   'False
  147.          Strikethrough   =   0   'False
  148.       EndProperty
  149.       Height          =   255
  150.       Left            =   240
  151.       TabIndex        =   15
  152.       Top             =   1320
  153.       Width           =   1695
  154.    End
  155.    Begin VB.Label Label5 
  156.       Alignment       =   1  'Right Justify
  157.       Caption         =   "Priority"
  158.       BeginProperty Font 
  159.          Name            =   "MS Sans Serif"
  160.          Size            =   8.25
  161.          Charset         =   0
  162.          Weight          =   700
  163.          Underline       =   0   'False
  164.          Italic          =   0   'False
  165.          Strikethrough   =   0   'False
  166.       EndProperty
  167.       Height          =   255
  168.       Left            =   1200
  169.       TabIndex        =   11
  170.       Top             =   2520
  171.       Width           =   735
  172.    End
  173.    Begin VB.Label Label4 
  174.       Alignment       =   1  'Right Justify
  175.       Caption         =   "Facility"
  176.       BeginProperty Font 
  177.          Name            =   "MS Sans Serif"
  178.          Size            =   8.25
  179.          Charset         =   0
  180.          Weight          =   700
  181.          Underline       =   0   'False
  182.          Italic          =   0   'False
  183.          Strikethrough   =   0   'False
  184.       EndProperty
  185.       Height          =   255
  186.       Left            =   1200
  187.       TabIndex        =   10
  188.       Top             =   2040
  189.       Width           =   855
  190.    End
  191.    Begin VB.Label Label3 
  192.       Alignment       =   1  'Right Justify
  193.       Caption         =   "Message"
  194.       BeginProperty Font 
  195.          Name            =   "MS Sans Serif"
  196.          Size            =   8.25
  197.          Charset         =   0
  198.          Weight          =   700
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       Height          =   255
  204.       Left            =   240
  205.       TabIndex        =   6
  206.       Top             =   920
  207.       Width           =   1695
  208.    End
  209.    Begin VB.Label Label2 
  210.       Alignment       =   1  'Right Justify
  211.       Caption         =   "Header"
  212.       BeginProperty Font 
  213.          Name            =   "MS Sans Serif"
  214.          Size            =   8.25
  215.          Charset         =   0
  216.          Weight          =   700
  217.          Underline       =   0   'False
  218.          Italic          =   0   'False
  219.          Strikethrough   =   0   'False
  220.       EndProperty
  221.       Height          =   255
  222.       Left            =   240
  223.       TabIndex        =   5
  224.       Top             =   520
  225.       Width           =   1695
  226.    End
  227.    Begin VB.Label Label1 
  228.       Alignment       =   1  'Right Justify
  229.       Caption         =   "Destination Address"
  230.       BeginProperty Font 
  231.          Name            =   "MS Sans Serif"
  232.          Size            =   8.25
  233.          Charset         =   0
  234.          Weight          =   700
  235.          Underline       =   0   'False
  236.          Italic          =   0   'False
  237.          Strikethrough   =   0   'False
  238.       EndProperty
  239.       Height          =   255
  240.       Left            =   120
  241.       TabIndex        =   4
  242.       Top             =   120
  243.       Width           =   1815
  244.    End
  245. Attribute VB_Name = "Form1"
  246. Attribute VB_GlobalNameSpace = False
  247. Attribute VB_Creatable = False
  248. Attribute VB_PredeclaredId = True
  249. Attribute VB_Exposed = False
  250. Option Explicit
  251. Private Sub Combo1_Change()
  252. End Sub
  253. Private Sub Command1_Click()
  254. Syslogx1.DestIP = Text1.Text
  255. Syslogx1.Header = Text2.Text
  256. If (Check1 = 0) Then
  257.     Syslogx1.Enabled = False
  258.     Syslogx1.Enabled = True
  259. End If
  260. If (Check2 = 0) Then
  261.     Syslogx1.ShowTime = False
  262.     Syslogx1.ShowTime = True
  263. End If
  264. If (Check3 = 0) Then
  265.     Syslogx1.FileLogEnable = False
  266.     Syslogx1.FileLogEnable = True
  267. End If
  268. If (Check4 = 0) Then
  269.     Syslogx1.AlertEnable = False
  270.     Syslogx1.AlertEnable = True
  271. End If
  272. Syslogx1.FileLogName = Text4
  273. 'Syslogx1.Priority = Info
  274. 'Syslogx1.Facility = Local7
  275. Syslogx1.LogMsg (Text3.Text)
  276. End Sub
  277. Private Sub Facility_Click()
  278. Dim offset As Long
  279. Dim findex As Long
  280. findex = Facility.ListIndex
  281. offset = 0
  282. If (findex > 10) Then offset = 40
  283. Syslogx1.Facility = findex * 8 + offset
  284. 'MsgBox (Str(Syslogx1.Facility))
  285. If (Syslogx1.Facility > 80) Then
  286.     Facility.ListIndex = (Syslogx1.Facility - 40) / 8
  287.     Facility.ListIndex = Syslogx1.Facility / 8
  288. End If
  289. End Sub
  290. Private Sub Form_Load()
  291. Text1.Text = "127.0.0.1"
  292. Text2 = "Test Header"
  293. Text3 = "Test Message"
  294. Facility.AddItem ("Kern")
  295. Facility.AddItem ("User")
  296. Facility.AddItem ("Mail")
  297. Facility.AddItem ("Daemon")
  298. Facility.AddItem ("Auth")
  299. Facility.AddItem ("Syslog")
  300. Facility.AddItem ("Lpr")
  301. Facility.AddItem ("News")
  302. Facility.AddItem ("Uucp")
  303. Facility.AddItem ("Cron")
  304. Facility.AddItem ("Authpriv")
  305. Facility.AddItem ("Local0")
  306. Facility.AddItem ("Local1")
  307. Facility.AddItem ("Local2")
  308. Facility.AddItem ("Local3")
  309. Facility.AddItem ("Local4")
  310. Facility.AddItem ("Local5")
  311. Facility.AddItem ("Local6")
  312. Facility.AddItem ("Local7")
  313. Priority.AddItem ("Emerg")
  314. Priority.AddItem ("Alert")
  315. Priority.AddItem ("Crit")
  316. Priority.AddItem ("Err")
  317. Priority.AddItem ("Warning")
  318. Priority.AddItem ("Notice")
  319. Priority.AddItem ("Info")
  320. Priority.AddItem ("Debug")
  321. Facility = Syslogx1.Facility
  322. If (Syslogx1.Facility > 80) Then
  323.     Facility.ListIndex = (Syslogx1.Facility - 40) / 8
  324.     Facility.ListIndex = Syslogx1.Facility / 8
  325. End If
  326. Priority.ListIndex = Syslogx1.Priority
  327. Text4 = Syslogx1.FileLogName
  328. If Syslogx1.SyslogEnable Then
  329.     Check1 = 1
  330.     Check1 = 0
  331. End If
  332. If Syslogx1.ShowTime Then
  333.     Check2 = 1
  334.     Check2 = 0
  335. End If
  336. If Syslogx1.FileLogEnable Then
  337.     Check3 = 1
  338.     Check3 = 0
  339. End If
  340. If Syslogx1.AlertEnable Then
  341.     Check4 = 1
  342.     Check4 = 0
  343. End If
  344. Syslogx1.AlertSound = "c:\windows\media\ding.wav"
  345. Text5 = Syslogx1.AlertSound
  346. End Sub
  347. Private Sub Priority_Change()
  348. Syslogx1.Priority = Priority.ListIndex
  349. Priority.ListIndex = Syslogx1.Priority
  350. End Sub
  351. Private Sub Priority_Click()
  352. Syslogx1.Priority = Priority.ListIndex
  353. Priority.ListIndex = Syslogx1.Priority
  354. End Sub
  355.